home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / PGPMailEditor.zprx < prev    next >
Text File  |  1996-05-09  |  3KB  |  90 lines
  1. /*
  2.  
  3.    $VER: PGPMailEditor.zprx V1.2 (04.5.96) © Copyright Nils Görs
  4.    Ideen und Verbesserungsvorschläge von : Stefan Haefner
  5.  
  6.  
  7.     Dies  ist  ein  ARexx-Skript für Zodiac's Point, mit dem man Nach-
  8.     richten die PGP kodiert sind ganz normal edieren/korrigieren kann.
  9.  
  10.  
  11.     Sie dürfen dieses Skript beliebig kopieren,  solange  es  zusammen
  12.     mit  Zodiac's  Point  eingesetzt wird, aber verändern Sie es bitte
  13.     nicht ohne Erlaubnis des Autors.
  14.  
  15.     Sie erreichen den Autor wie folgt:
  16.  
  17.        Nils Görs              Tel. : +49 (0)202 78xxxx
  18.        Kaiserstr. 97a         EMail: N.Goers@Art-Line.de
  19.        42329 Wuppertal          oder über das ZP-Support-Brett.
  20.  
  21.    Verwenden Sie bitte nach Möglichkeit elektronische Post!
  22.  
  23.  
  24.     Hinweise zur Installation:
  25.  
  26.     Sie müssen dieses Skript, als Editor Kommando eintragen (bei mir
  27.     sieht es wie folgt aus):    Dh1:Rexx/PGPMailEditor.zprx %s %s
  28.  
  29.  
  30.     !!! WICHTIG !!!
  31.     Sie MÜSSEN unbedingt  "EncryptToSelf=ON" in Ihre PGP-Konfiguration
  32.     setzen, damit dieses Skript funktioniert.
  33.     Außerdem darf  sich der  Editor KEINESFALLS vom aufrufenden Prozeß
  34.     abkoppeln (aber das steht ja alles in der ZP-GUIDE die Sie sicher-
  35.     lich gelesen haben, woll!? ;-)
  36.     Sie MÜSSEN außerdem, das S-Bit des Skripts setzen !!!
  37. */
  38.  
  39. /* Übernehmen Sie hier einfach den Eintrag, so wie er bei ZP steht */
  40. Editor  = "c:CED %s -keepio"
  41.  
  42. /* und das sollte so bei jedem funktionieren!                      */
  43. Decode  = "pgp +force -o"
  44.  
  45. /* Ich weiß nicht, ob dieser Eintrag immer gleich bleibt. Dies ist
  46.    die erste Zeile innerhalb einer PGP-Nachricht.                  */
  47. PGPErkennung = "-----BEGIN PGP MESSAGE-----"
  48. /*******************************************************************
  49.  *      Bitte unterhalb dieser Zeile nichts mehr verändern!        *
  50.  *******************************************************************/
  51. NL = '0a'x
  52.  
  53. OPTIONS RESULTS
  54.  
  55. /* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
  56. PARSE ARG TempDat zpPort .
  57. IF TempDat == "" THEN EXIT
  58.  
  59. IF zpPort == "" THEN
  60.    zpPort = "ZPoint"
  61. ADDRESS VALUE zpPort
  62.  
  63. /* Platzhalter, der mit dem Namen der temporären Datei gefüllt wird. */
  64. Position = INDEX(Editor,'%')
  65.  IF Position == 0 THEN DO
  66.   say "Sie haben den, externen, Editor nicht richtig in das Skript eingebunden!"
  67.   ADDRESS COMMAND "wait 3"
  68. EXIT
  69. END
  70.  String  = DELSTR(Editor,Position,2)
  71.  Editor  = INSERT(TempDat,String,Position-1)
  72.  
  73. /* Platzhalter, der mit dem Namen des PubScreens gefüllt wird. */
  74. Position = INDEX(Editor,'%')
  75.  IF Position ~= 0 THEN DO
  76.    String2 = DELSTR(Editor,Position,2)
  77.    Editor  = INSERT(zpPort,String2,Position-1)
  78.  END
  79.  
  80. IF OPEN(Mail,TempDat,'Read') == 1 THEN DO
  81.   PGP_Check=READLN(Mail)
  82.   CALL CLOSE(Mail)
  83.   IF PGP_Check == PGPErkennung THEN
  84.       ADDRESS COMMAND decode TempDat TempDat /* Nachricht dekodieren! */
  85. END
  86.  
  87. ADDRESS COMMAND Editor                      /* Editor starten */
  88. EXIT
  89. /*EOS*/
  90.